Global Variables

Dim db as Database
Dim rs as Recordset
Dim ws as Workspace

Optional
Dim max as Long
Dim i as long
Dim errormsg
Dim dbAdd as Boolean
Dim dbEdit as Boolean

Form Load

Set ws = DBEngine.workspaces(0)
set db = ws.opendatabase(app.path & "\Database.mdb")
set rs = db.openrecordset("Accounts", dbopentable)

List1.click

Set rs = db.openrecordset("Select * from Accounts where Account = '" & trim(lstAcc.listindex)) & "'")
rs.movefirst